home *** CD-ROM | disk | FTP | other *** search
/ Sports Illustrated for Kids - Awesome Athletes! / Sports Illustrated for Kids - Awesome Athletes!.iso / tr.dir / 00004_CheckForPop.ls < prev    next >
Encoding:
Text File  |  1996-04-18  |  6.5 KB  |  199 lines
  1. on CheckForPop
  2.   global gzTRBalloonObj, gTR_BalloonNumJustHit, gcTRBAL_CH1, gcTRPUZZLECH
  3.   if (the clickOn < gcTRBAL_CH1) or (the clickOn > (gcTRBAL_CH1 + 29)) then
  4.     return 
  5.   end if
  6.   set vBalloonNumJustHit to the clickOn
  7.   set vSpriteChannel to the clickOn
  8.   puppetSprite(vSpriteChannel, 1)
  9.   set vBalloonNumJustHit to vBalloonNumJustHit - (gcTRBAL_CH1 - 1)
  10.   set gTR_BalloonNumJustHit to vBalloonNumJustHit
  11.   puppetSound(0)
  12.   puppetSound("hit.aif")
  13.   updateStage()
  14.   repeat while soundBusy(1)
  15.     nothing()
  16.   end repeat
  17.   set vQuestionSet to mGetMyQuestion(getAt(gzTRBalloonObj, vBalloonNumJustHit))
  18.   set vPopColor to mGetMyPopColor(getAt(gzTRBalloonObj, vBalloonNumJustHit))
  19.   mSetAmIPopped(getAt(gzTRBalloonObj, vBalloonNumJustHit), 1)
  20.   set vPopFrag to ChangePopColor(vPopColor)
  21.   popit(vSpriteChannel, vPopFrag)
  22.   GetMyQuestionPlease(vQuestionSet)
  23.   puppetSprite(45, 0)
  24.   updateStage()
  25.   set the visible of sprite 45 to 1
  26.   zoomBox(vSpriteChannel, 42, 1)
  27.   go("ShowQuestions")
  28.   ShowQuestionWindow()
  29. end
  30.  
  31. on ShowTheDart
  32.   global gzTRBalloonObj, gTR_BalloonNumJustHit
  33.   set vSpriteChannel to mGetMySpriteChan(getAt(gzTRBalloonObj, gTR_BalloonNumJustHit))
  34.   set vIamDouble to mGetAmIDouble(getAt(gzTRBalloonObj, gTR_BalloonNumJustHit))
  35.   if vIamDouble then
  36.     set vNum to the number of cast "StarOne" + (gTR_BalloonNumJustHit - 1)
  37.     set the castNum of sprite vSpriteChannel to cast vNum
  38.     puppetSound("dubval.aif")
  39.     repeat while soundBusy(1)
  40.       nothing()
  41.     end repeat
  42.   else
  43.     set vNum to the number of cast "DartOne" + (gTR_BalloonNumJustHit - 1)
  44.     set the castNum of sprite vSpriteChannel to cast vNum
  45.   end if
  46.   mSetMyCastNum(getAt(gzTRBalloonObj, gTR_BalloonNumJustHit), vNum)
  47.   set the visible of sprite vSpriteChannel to 1
  48.   updateStage()
  49. end
  50.  
  51. on ChangePopColor aNewPopColor
  52.   global gcTR_BLUE, gcTR_RED, gcTR_GREEN, gcTR_YELLOW, gcTR_ORG, gcTR_PINK
  53.   set vPopFrag to "RedPop1"
  54.   if aNewPopColor = gcTR_BLUE then
  55.     set vPopFrag to "BluPop1"
  56.   else
  57.     if aNewPopColor = gcTR_RED then
  58.       set vPopFrag to "RedPop1"
  59.     else
  60.       if aNewPopColor = gcTR_GREEN then
  61.         set vPopFrag to "GrnPop1"
  62.       else
  63.         if aNewPopColor = gcTR_YELLOW then
  64.           set vPopFrag to "YelPop1"
  65.         else
  66.           if aNewPopColor = gcTR_ORG then
  67.             set vPopFrag to "OrgPop1"
  68.           else
  69.             if aNewPopColor = gcTR_PINK then
  70.               set vPopFrag to "PinkPop1"
  71.             else
  72.               set vPopFrag to "RedPop1"
  73.             end if
  74.           end if
  75.         end if
  76.       end if
  77.     end if
  78.   end if
  79.   return vPopFrag
  80. end
  81.  
  82. on popit vWhichBalloon, vPopFrag
  83.   global gcTRBAL_CH1, gTR_BalloonNumJustHit, gcTR_DOUBLE3_CH, gzTRBalloonObj, gcTRROVER
  84.   updateStage()
  85.   set the visible of sprite vWhichBalloon to 0
  86.   updateStage()
  87.   set vTheBalloon to gTR_BalloonNumJustHit - 1 + gcTRBAL_CH1
  88.   ShowTheDart()
  89.   set the ink of sprite gcTRROVER to 36
  90.   if value(HSStateGet("opt", "TRPop")) then
  91.     set the castNum of sprite gcTRROVER to the number of cast vPopFrag
  92.     set the locH of sprite gcTRROVER to the locH of sprite vWhichBalloon
  93.     set the locV of sprite gcTRROVER to the locV of sprite vWhichBalloon
  94.     set the castNum of sprite gcTRROVER to the number of cast vPopFrag
  95.     set the visible of sprite gcTRROVER to 1
  96.     updateStage()
  97.     set the visible of sprite gcTRROVER to 0
  98.     set the castNum of sprite gcTRROVER to the number of cast vPopFrag + 1
  99.     set the visible of sprite gcTRROVER to 1
  100.     updateStage()
  101.     set the visible of sprite gcTRROVER to 0
  102.     set the castNum of sprite gcTRROVER to the number of cast vPopFrag + 2
  103.     set the visible of sprite gcTRROVER to 1
  104.     updateStage()
  105.     set the visible of sprite gcTRROVER to 0
  106.     set the castNum of sprite gcTRROVER to the number of cast vPopFrag + 3
  107.     set the visible of sprite gcTRROVER to 1
  108.     updateStage()
  109.     set the visible of sprite gcTRROVER to 0
  110.     updateStage()
  111.   end if
  112.   ShowTheDart()
  113. end
  114.  
  115. on PopAllBalloons
  116.   global gcTRBAL_CH1, gTR_BalloonNumJustHit, gzTRBalloonObj
  117.   repeat with vIndex = 1 to 30
  118.     set gTR_BalloonNumJustHit to vIndex
  119.     if not mGetAmIPopped(getAt(gzTRBalloonObj, vIndex)) then
  120.       updateStage()
  121.       set vPopColor to mGetMyPopColor(getAt(gzTRBalloonObj, gTR_BalloonNumJustHit))
  122.       set vPopFrag to ChangePopColor(vPopColor)
  123.       popit(gcTRBAL_CH1 + (vIndex - 1), vPopFrag)
  124.       mSetAmIPopped(getAt(gzTRBalloonObj, vIndex), 1)
  125.     end if
  126.   end repeat
  127. end
  128.  
  129. on CheckForKnotHit
  130.   global gzTRBalloonObj
  131.   if not (the mouseDown) then
  132.     return 
  133.   end if
  134.   set vKnot1 to rect(167, 318, 210, 371)
  135.   set vKnot2 to rect(464, 109, 495, 158)
  136.   set vMouse to point(the mouseH, the mouseV)
  137.   if inside(vMouse, vKnot1) then
  138.     if mGetAmIPopped(getAt(gzTRBalloonObj, 8)) then
  139.       updateStage()
  140.       DoEye(1)
  141.     end if
  142.   else
  143.     if inside(vMouse, vKnot2) then
  144.       if mGetAmIPopped(getAt(gzTRBalloonObj, 17)) then
  145.         updateStage()
  146.         DoEye(2)
  147.       end if
  148.     end if
  149.   end if
  150. end
  151.  
  152. on DoEye aWhichEye
  153.   global gcTRROVER
  154.   puppetSprite(gcTRROVER, 1)
  155.   set the visible of sprite gcTRROVER to 1
  156.   set the ink of sprite gcTRROVER to 8
  157.   if aWhichEye = 1 then
  158.     set the locH of sprite gcTRROVER to 154
  159.     set the locV of sprite gcTRROVER to 248
  160.     puppetTransition(51, 1, 1, 1)
  161.     set the castNum of sprite gcTRROVER to cast "ClosedEye1"
  162.     updateStage()
  163.     set the locH of sprite gcTRROVER to 153
  164.     set the locV of sprite gcTRROVER to 246
  165.     puppetTransition(4, 1, 1, 1)
  166.     set the castNum of sprite gcTRROVER to cast "OpenEye1"
  167.     updateStage()
  168.     set the locH of sprite gcTRROVER to 154
  169.     set the locV of sprite gcTRROVER to 248
  170.     puppetTransition(3, 1, 1, 1)
  171.     set the castNum of sprite gcTRROVER to cast "ClosedEye1"
  172.     updateStage()
  173.   else
  174.     if aWhichEye = 2 then
  175.       set the locH of sprite gcTRROVER to 387
  176.       set the locV of sprite gcTRROVER to 181
  177.       puppetTransition(51, 1, 1, 1)
  178.       set the castNum of sprite gcTRROVER to cast "ClosedEye1"
  179.       updateStage()
  180.       set the locH of sprite gcTRROVER to 385
  181.       set the locV of sprite gcTRROVER to 178
  182.       puppetTransition(4, 1, 1, 1)
  183.       set the castNum of sprite gcTRROVER to cast "OpenEye2"
  184.       updateStage()
  185.       set the locH of sprite gcTRROVER to 387
  186.       set the locV of sprite gcTRROVER to 181
  187.       puppetTransition(3, 1, 1, 1)
  188.       set the castNum of sprite gcTRROVER to cast "ClosedEye1"
  189.       updateStage()
  190.     end if
  191.   end if
  192.   puppetTransition(51, 1, 1, 1)
  193.   set the visible of sprite gcTRROVER to 0
  194.   updateStage()
  195.   set the locV of sprite gcTRROVER to -10
  196.   set the locH of sprite gcTRROVER to -10
  197.   puppetTransition(0)
  198. end
  199.